﻿
Public Class tcpListener2
    Inherits Net.Sockets.TcpListener

    Public Sub New(ByVal localEP As System.Net.IPEndPoint)
        MyBase.New(localEP)
    End Sub

    Public Sub New(ByVal port As Int32)
        MyBase.New(Net.IPAddress.Any, port)
    End Sub

    Public Sub New(ByVal localaddr As System.Net.IPAddress, ByVal port As Int32)
        MyBase.New(localaddr, port)
    End Sub

    Public Shadows Function Active() As Boolean
        Return MyBase.Active()
    End Function
End Class
